home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / amac36.arc / SRL.QM < prev    next >
Text File  |  1991-03-16  |  2KB  |  35 lines
  1. * This macro is used with SRL.BAT.  See SRCHxx.QM for documentation.
  2. *
  3. @7 macrobegin
  4. ***************************************** LOAD FOUND FILES
  5.         altwordset                      * For all file names
  6.         endfile                         * Get to end of file
  7.  CHECKAGAIN:                            *
  8.         unmarkblock                     * Clear last file name
  9.         find #42 "Fi" return "B"  return* Find file name
  10.         wordright                       * Move to space
  11.         wordright                       * Move to file name
  12.         markcolumn                      * Mark it
  13.         endline                         * Get all name in block
  14.         copy                            * Copy file name to scrap
  15.         EditFile                        * Get ready to load
  16.         CurrentFilename " "             * To force return *here*
  17.         Paste Return                    * Paste file name & do it!
  18.         cursorup                        * Go to next line
  19.  jfalse END:                            * No more file names? End
  20.  jump CHECKAGAIN:                       * Check again
  21.  END:                                   *
  22.         defaultwordset                  * Set default
  23. ***************************************** INITIALIZE FIND FOR SEARCH  |
  24.         DOS "set>c:$" return return     * Get SET output to tempfile  |
  25.         editfile "c:$" return           * Load tempfile               |
  26.         find  "FGS" return return      ** Find FGS in SET output      | v2.2
  27.         begline wordright dropanchor    * Mark first letter of search |
  28.                                         *  text                       |
  29.         endline cursorleft copy         * Copy search text to scrap   |
  30.         killfile quit                   * Kill/quit temp for next time|
  31.         Find paste return Escape        * Initialize find for F4      |
  32. *
  33. * 37 bytes Thu  09-06-1990  13:53:04
  34. * 83 bytes Sat  02-09-1991  10:47:23
  35.